Program: Go-moku

This program is designed for the TI-80 calculator by Jonas Himpe and 7software. For questions, e-mail me: sonnevilletec@hotmail.com
Known bugs: none
Memory needed: 515 bytes for the program and 650-700 for L6

Instgrp is a program made by Atlantica software. It's very usefull and it's required for this program. You can find it on www.ticalc.org

clrhome, dim, L6, ipart, fpart,... are 'commands' for the TI-80 so it won't work if you type them C,L,R,H,O,M,E ...


program: gomoku
clrhome
disp "  go-moku v1.2","",""," (c) 7software","  Jonas Himpe"
pause
clrhome
disp "1: new game","2: continue last","   game"
input I
if I=2:goto 0
prgm_instgrp
clrlist L6
80->dim L6
for(A,49,13,-6)
line(9,A,63,A)
end
for(A,9,63,6)
line(A,49,A,13)
end
line(57,5,57,9)
line(57,9,63,9)
line(63,9,63,5)
line(57,5,63,5)
0->L6(1)
lbl 0
input
(x-3)/6->D
(Y-7)/6->E
if L6(Ipart D+10Ipart E)=1:goto 0
if (Fpart D=0)(Fpart E=0):goto 1
goto 0
lbl1
L6(1)+1->L6(1)
1->L6(Ipart D+10Ipart E)
pt-off(X,Y)
pt-off(X-1,Y)
pt-off(X+1,Y)
pt-off(X,Y-1)
pt-off(X,Y+1)
for(A,X-1,X+1)
pt-on(A,Y-2)
pt-on(A,Y+2)
end
for(B,Y-1,Y+1)
pt-on(X-2,B)
pt-on(X+2,B)
end
if Fpart (L6(1)/2)=0:then
for(A,X-1,X+1)
pt-on(A,Y-1)
pt-on(A,Y)
pt-on(A,Y+1)
end:end
for(B,8,6,-1)
for(A,58,62)
pt-change(A,B)
end:end
goto 0

GO-MOKU is a variant on the japanese GO -game. You have to get 5 stones in a row (horizontal, vertical or diagonal) by puting them on the intersection of 2 lines, so YOU CAN'T PUT THEM IN THE MIDDLE OF A SQUARE!!! The game is designed for 2 players but the calculator won't stop or do anything when you win  (you can say this is a bug if you want, but I think you're smart enough to count to 5...)
For the real experience download that Go-moku game, search it on www.download.com
or buy the whole game (the board-game is still better)
 If you have ideas, questions or tactic problems, email me: sonnevilletec@hotmail.com